﻿Imports Microsoft.VisualBasic
Imports System.Data

Public Class clsCategoria
    Inherits clsDatos

    Function Get_Categorias(ByVal strRama As String) As DataTable

        'Return GetDatos("select * from artCat order by categoria")
        Return GetDatos("select distinct categoria from art where rama='" & strRama.Trim & "' and categoria is not null order by categoria")

    End Function

    Function Get_Categorias(ByVal strRama As String, ByVal strCategoria As String) As DataTable

        'Return GetDatos("select * from artCat order by categoria")
        Return GetDatos("select distinct categoria from art where rama='" & strRama.Trim & "' and categoria='" & strCategoria.Trim & "' order by categoria")

    End Function

    Function Get_Categorias() As DataTable

        Return GetDatos("Select * from artcat order by categoria")

    End Function

End Class
